home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 November / Chip_1999-11_cd.bin / tema / GoLive / golive4try.exe / GoLive 4.0 Tryout / data1.cab / Apps / PDFL40.DLL / PSPROCSET / 17 < prev    next >
Encoding:
Text File  |  1999-08-05  |  4.4 KB  |  238 lines
  1. %%BeginResource: procset pdflev15044
  2. %%Version: 4.0 1
  3. %%Copyright: Copyright 1987-1990 Adobe Systems Incorporated. All Rights Reserved.
  4. %%LanguageLevel: 1
  5. %%Title: PDF operators, Level 1, with emulated separations (TN 5044)
  6. /_ColorSep5044? true dd
  7. currentscreen
  8. dup type /dicttype eq
  9. { /_defaulthalftone xdd
  10. pop pop
  11. }
  12. { /_defaulthalftone
  13. 5 dict begin
  14. 1 [/HalftoneType /SpotFunction /Angle /Frequency ]
  15. { exch def } forall
  16. currentdict
  17. end
  18. dd
  19. } ifelse
  20. /currentcolortransfer where
  21. { pop /_defaultcolortransfer [ currentcolortransfer ] dd }
  22. { /setcolortransfer {
  23. settransfer pop pop pop
  24. } bd
  25. /_defaultcolortransfer [currenttransfer dup dup dup] dd
  26. }
  27. ifelse
  28. /initialize {
  29. sep_ops begin
  30. 50 dict begin
  31. _defaulthalftone sethalftone
  32. } bd
  33. /terminate {
  34. end end
  35. } bd
  36. /pl {
  37. transform
  38. 0.25 sub round 0.25 add exch
  39. 0.25 sub round 0.25 add exch
  40. itransform
  41. } bd
  42. /m { _sa? { pl } if moveto } bd
  43. /l { _sa? { pl } if lineto } bd
  44. /c { _sa? { pl } if curveto } bd
  45. /setSA { /_sa? xdd } bd
  46. /AlmostFull?
  47. { dup maxlength exch length sub 2 le
  48. } bd
  49. /Expand
  50. { 1 index maxlength mul cvi dict
  51. dup begin exch { def } forall end
  52. } bd
  53. /xput
  54. { 3 2 roll
  55. dup 3 index known not
  56. { dup AlmostFull? { 1.5 Expand } if
  57. } if
  58. dup 4 2 roll put
  59. } bd
  60. /defineRes
  61. { _categories 1 index known not
  62. { /_categories _categories 2 index 10 dict xput store
  63. } if
  64. _categories exch 2 copy get 5 -1 roll 4 index xput put
  65. } bd
  66. /findRes {
  67. _categories exch get exch get
  68. } bd
  69. /ri/pop ld
  70. /L1setcolor {
  71. aload length
  72. dup 0 eq
  73. { pop .5 setgray }
  74. { dup 1 eq
  75. { pop setgray }
  76. { 3 eq
  77. { setrgbcolor }
  78. { setcmykcolor }
  79. ifelse }
  80. ifelse }
  81. ifelse
  82. } bind dd
  83. /_sfcs { } dd
  84. /_sscs { } dd
  85. /scn { sc } bd
  86. /SCN { SC } bd
  87. /rf {re f} bd
  88. /concattransferfuncs {
  89. [ 3 1 roll /exec load exch /exec load ] cvx
  90. } bd
  91. /concatandsettransfer {
  92. /_defaulttransfer load concattransferfuncs settransfer
  93. } bd
  94. /concatandsetcolortransfer {
  95. colorplate 0 eq
  96. {
  97. _defaultcolortransfer aload pop
  98. 8 -1 roll 5 -1 roll concattransferfuncs 7 1 roll
  99. 6 -1 roll 4 -1 roll concattransferfuncs 5 1 roll
  100. 4 -1 roll 3 -1 roll concattransferfuncs 3 1 roll
  101. concattransferfuncs
  102. setcolortransfer
  103. } if
  104. colorplate 1 ge colorplate 4 le and
  105. {
  106. 4 colorplate sub index 4 { exch pop } repeat
  107. concatandsettransfer
  108. } if
  109. colorplate 5 ge
  110. {
  111. 0 index 4 { exch pop } repeat
  112. concatandsettransfer
  113. } if
  114. } bd
  115. /tn5044sethalftone
  116. {
  117. begin
  118. HalftoneType 5 eq
  119. { [/Default /Cyan /Magenta /Yellow /Black /Default /Default /Default]
  120. colorplate get
  121. here not {
  122. /Default here not { currentdict } if
  123. } if
  124. }
  125. { currentdict }
  126. ifelse
  127. end
  128. begin
  129. /TransferFunction here
  130. {
  131. concatandsettransfer
  132. currentdict dup length dict
  133. begin
  134. {
  135. 1 index /TransferFunction ne { def } { pop pop } ifelse
  136. } forall
  137. currentdict
  138. end
  139. }
  140. {
  141. currentdict
  142. } ifelse
  143. end
  144. sethalftone
  145. } bd
  146. /gs
  147. {
  148. begin
  149. /SA here { /_sa? xdd } if
  150. /TR here
  151. {
  152. dup xcheck
  153. { concatandsettransfer }
  154. { aload pop concatandsetcolortransfer }
  155. ifelse
  156. } if
  157. /HT here { tn5044sethalftone } if
  158. /FL here { i } if
  159. currentdict gsDI
  160. end
  161. } bd
  162. /_sfc
  163. {
  164. _fp null eq
  165. { _fcs type /arraytype eq
  166. {_fcs 0 get /Separation eq
  167. {
  168. _fcs 1 get /All eq
  169. {
  170. _fc aload pop 1 exch sub
  171. /setseparationgray where pop begin setseparationgray end
  172. }
  173. {
  174. 1 _fcs 3 get exec _fcs 1 get
  175. /findcmykcustomcolor where pop begin findcmykcustomcolor end
  176. _fc aload pop
  177. /setcustomcolor where pop begin setcustomcolor end
  178. }
  179. ifelse
  180. }
  181. { _fc L1setcolor }
  182. ifelse
  183. }
  184. { _fc L1setcolor }
  185. ifelse
  186. }
  187. { _fc L1setcolor }
  188. ifelse
  189. } bind dd
  190. /_ssc
  191. {
  192. _sp null eq
  193. { _scs type /arraytype eq
  194. {_scs 0 get /Separation eq
  195. {
  196. _scs 1 get /All eq
  197. {
  198. _sc aload pop 1 exch sub
  199. /setseparationgray where pop begin setseparationgray end
  200. }
  201. {
  202. 1 _scs 3 get exec _scs 1 get
  203. /findcmykcustomcolor where pop begin findcmykcustomcolor end
  204. _sc aload pop
  205. /setcustomcolor where pop begin setcustomcolor end
  206. }
  207. ifelse
  208. }
  209. { _sc L1setcolor }
  210. ifelse
  211. }
  212. { _sc L1setcolor }
  213. ifelse
  214. }
  215. { _sc L1setcolor }
  216. ifelse
  217. } bind dd
  218. /f {
  219. { { sfc fill }
  220. {gsave sfc fill grestore clip newpath icl ilp}
  221. {gsave sfc fill grestore eoclip newpath icl ilp}
  222. } _doClip get exec
  223. } bd
  224. /f* {
  225. { { sfc eofill }
  226. {gsave sfc eofill grestore clip newpath icl ilp}
  227. {gsave sfc eofill grestore eoclip newpath icl ilp}
  228. } _doClip get exec
  229. } bd
  230. /S {
  231. { { sfc stroke }
  232. {gsave sfc stroke grestore clip newpath icl ilp}
  233. {gsave sfc stroke grestore eoclip newpath icl ilp}
  234. } _doClip get exec
  235. } bd
  236. /rf {re f} bd
  237. %%EndResource
  238.